home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #4 / Amiga Plus CD - 1996 - No. 4.iso / pd / daten / flm_v2.17 / otherfiles / english / arexx / flmtest.rexx < prev    next >
OS/2 REXX Batch file  |  1996-02-05  |  1KB  |  72 lines
  1. /*
  2.    Script which proves FLM capabilites for automatic translation.
  3.  
  4.    This script translates 10 times the next two character strings, and
  5.    then ends: This way the first character string is 'deutsch', and the
  6.    second one is 'englisch'.
  7. */
  8.  
  9. zeichenfolge1='Das ist ein großer Wörterbuch - Test ...'
  10. zeichenfolge2='This is a large dictionary test ...'
  11.  
  12. options results
  13. address FLM
  14.  
  15. do k=1 to 10 /* Fake endless loop */
  16.  
  17. setlanguage deutsch
  18.  
  19. do i=1 to words(zeichenfolge1) /* tue solange Wörter im String */
  20.  wort = word(zeichenfolge1,i) /* 1., 2., 3. ... Wort */
  21.  say "Suche" wort
  22.  lookword wort
  23.  found  /* gefunden ? */
  24.  if result = 0 then
  25.   do
  26.     wordanz
  27.     anz=RESULT
  28.     say anz "Wörter wurden gefunden"
  29.     do j=1 to anz
  30.         takeword j /* Übersetzungen holen */
  31.         say RESULT
  32.     end
  33.   end
  34.  else
  35.   do
  36.     say "Wort steht nicht im Wörterbuch"
  37.     takefound
  38.     say "Nächtsähnlichstes Wort ist" RESULT
  39.   end
  40.   say
  41. end
  42.  
  43. setlanguage englisch
  44.  
  45. do i=1 to words(zeichenfolge2) /* do as long as there are words in string */
  46.  wort = word(zeichenfolge2,i) /* 1., 2., 3. ... word */
  47.  say "Searching" wort
  48.  lookword wort
  49.  found  /* Found? */
  50.  if result = 0 then
  51.   do
  52.     wordanz
  53.     anz=RESULT
  54.     say anz "Words were found"
  55.     do j=1 to anz
  56.         takeword j /* Take translations */
  57.         say RESULT
  58.     end
  59.   end
  60.  else
  61.   do
  62.     say "Word is not in dictionary"
  63.     takefound
  64.     say "Next similar word is" RESULT
  65.   end
  66.   say
  67. end
  68.  
  69. end
  70.  
  71. exit /* Script ends */
  72.